home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Almathera Photo Library
/
Photo Library CD (1995)(Almathera)[!][compilation Ten On Ten].iso
/
newicons
/
install_newicons
< prev
next >
Wrap
Text File
|
1994-10-31
|
6KB
|
220 lines
; NewIcons Installer Script
; $Ver: 37.6 (05.10.94)
; Written by Philip A. Vedovatti
; for Program Author Nicola Salmoria,
; with many thanks for his fine programming work.
(set @default-dest "SYS:C")
(set #bad-kick
(cat "\n\nSorry! You must have Workbench 2.0 or"
"higher to to use this package."))
(set #hello-message
(cat "\n\nThank you for trying NewIcons, the revolutionary"
"\nnew Graphical User Interface system for the Amiga."
"\nPlease read the documentation to get the most out"
"\nof this package. Nothing will be deleted from your"
"\nsystem with this installation program. Your old WB"
"\nicons will still be there, even though it won't look"
"\nlike it on your screen. If you don't understand any"
"\npart of the installation, click on the \"Help\" gadget"
"\nfound throughout the installation for more information."
"\n\nCLICK TO PROCEED"))
(set #install-which
(cat "\nWhich part(s) of the NewIcons System would"
"\nyou like to install onto your hard drive?\n"))
(set #install-icons
(cat "\n\nInstalling the NewIcon icon"
"\nimages to your Sys: partition. \nYour old"
" icons will NOT be removed."))
(set #install-icons-help
(cat "\n\nThe new icon images will be embedded in"
"\nthe tool types of your existing .info"
"\nfiles. The tooltype lines will be"
"\ninvisible once NewIcons is running"
"\nso operation will be totally transparent"
"\nto the user."))
(set #install-newicons
(cat "\n\nCopying the NewIcons main files to C:"
"\nand newicon.library to Libs:"))
(set #install-newicons-help
(cat "\n\nThis section installs NewIcons, Injectbrush"
"\nand PatchOpenWB to your C: directory."
"\nAdditionally, the newicon.library will be"
"\ncopied to your Libs: drawer."))
(set #tools-dest
(cat "\nWhich drawer would you like the NewIcon"
"\nmanipulation utilities to be installed?\n"))
(set #startup-newicon
(cat "\n\nAdding a line to your S:User-Startup file"
"\nto launch NewIcons whenever the system"
"\nis booted up."))
(set #install-deficons
(cat "\n\nInstalling the DefIcons daemon to your"
"\nC: directory."))
(set #install-envarc
(cat "\nCopying the default icons and brainfile"
"\nto ENVARC: so DefIcons can use them.\n"))
(set #install-envarc-help
(cat "\n\nThis section install the icons that DefIcons"
"\nwill use to display icon images for files that"
"\ndon't have icons already attached to them."))
(set #startup-deficons
(cat "\n\nAdding a line to your S:user-Startup file"
"\nto launch DefIcons whenever the system"
"\nis booted up."))
(set #powb-message
(cat "\n\nIf you have installed NewIcons, you must "
"add a line to your S:Startup-Sequence:\n\n"
"C:PatchOpenWB\n"
"\nto fix a bug in the 3.x operating system!"
"\n\n Make sure to place the line after Setpatch"
"\nand before IPrefs."))
(set #exit-message
(cat "Please reboot your system to fully activate\n"
"the NewIcons and/or Deficons Systems."
"\n\n\nHave fun using NewIcons!"))
; ------------------------------
; Check Kickstart Version
; ------------------------------
(if (< (getversion "LIBS:version.library") (* 37 65536))
(abort #bad-kick)
)
(message #hello-message)
; ------------------------------
; What should I install?
; ------------------------------
(set InstallOpt
(askoptions (prompt #install-which)
(help @askoptions-help)
(choices "NewIcons" "DefIcons")
)
)
;-------------------------------------------------------
;Install icon images, NewIcons, and icon support files
;-------------------------------------------------------
(if (BITAND InstallOpt 1)
((copylib
(source "libs/newicon.library")
(dest "libs:")
)
(message #install-icons)
(execute "Install_Icons"
(help #install-icons-help)
)
(copylib
(prompt #install-newicons)
(source "C/NewIcons")
(dest "c:")
(help #install-newicons-help)
)
(copylib
(source "C/InjectBrush")
(dest "c:")
)
(copylib
(source "C/PatchOpenWB")
(dest "c:")
)
(copylib
(source "libs/newicon.library")
(dest "libs:")
)
(set destdir
(askdir
(prompt #tools-dest)
(help @askdir-help)
(default "Sys:Utilities")
)
)
(copyfiles
(source "Utilities/CopyNewIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "Utilities/CreateDefaultIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "Utilities/KillNewIcon")
(dest destdir)
(infos)
)
(startup "NewIcons"
(prompt #startup-newicon)
(command "NewIcons")
(help @startup-help)
)
)
)
;------------------------------
;Install Deficons
;------------------------------
(if (BITAND InstallOpt 2)
((copylib
(prompt #install-deficons)
(source "C/DefIcons")
(dest "C:")
)
(copyfiles
(prompt #install-envarc)
(source "envarc")
(dest "ENVARC:")
(all)
(infos)
(help #install-envarc-help)
)
(startup "DefIcons"
(prompt #startup-deficons)
(command "DefIcons")
(help @startup-help)
)
)
)
(message #powb-message)
(exit #exit-message)